Imports System
Module qs

   Sub Main()
        For i As Integer = 0 To 10
            Console.WriteLine(i)
            IF (i = 5) Then
                Exit For
            End If
        Next i
        Console.ReadKey()
    End Sub

End Module
